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version 'V04-000' 


MARRAAARAAAASAAAAAALASALALEASALALALASALESL ESSERE SEER EERE RES R ESE RCE S ERAS RS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


-* 
** ® 
-* ® 
-? ® 
-* * 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
s® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. - 
-* ® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. ® 
-* ® 
;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
;* SOFTWARE ON EQUIPMENT WHICH 1S NOT SUPPLIED BY DIGITAL. . 
® 
** ® 
-* * 
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MODIFIED BY: 


v03-003 DASO001 David Solomon 11-Feb-1984 
Fix error in pete abe S (used by SRENAME). For the default 
bs to for ERR and SUC ° gener are? non=pic instructions 
(PUSHAL #0). It now Bins PUSHL #0 if ERR or SUC=0. 


v03-002 RASO105 Ron Schaefer 23-Nov-1982 
Correct non-PIC references in SRMSCALLS and $SRMSCALLSTWO 
to RMS system services. Make into general addressing. 


v03-001 CWHO001 CW Hobbs 25-Sep-1982 
Standard form service calls ($CLOSE, etc) are now 
defined in <VMSLIB.SRC>STARLET.SDL. The declarations 
in this module have been removed. 


Bee Se Fe Oe Oe Se SH Se Se Se Oe OH Se Oe Oe Oe Oe Oe Oe Oe OH He ee Oe Oe ee Se Oe Oe Se Oe Oe Oe Oe SHES Oe ee 


rms macro to reserve a buffer  —s—y. 
(kept in the interest of compatibility only!) 


-MACRO $SBUFFER SIZE 
-BLKB § 
-ENDM $BUFFER 


eee ee ee Oe Be ee ee 


gene Toe 
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: no-op of Sinit for compatibility! 


er SINIT 


; N ; Sinit macro not required!; 
~ENDM SINIT 


«NLIST 
: $rmscall macro to setup arglist and call the desired routine 
«MACRO S$RMSCALL PROC,TAB,ERR,SUC 
-GLOBL SY¥YS$‘PROC 
If B <TAB> 
CALLG (AP) ,G*SYS$"PROC 
$$ =0 
NB <ERR> 


IF 
$$. TMP=1 


NB <SUC> 


lf NE $$. TMP Pe es 
of ~ s 3; tab'= parameter missing; 


RR 

1 EQ <$$.TMP1-1> 

$$. TMP1=2 
NDC 


IF EQ <$$.TMP1-3> 
#0 


-NTYPE $$.TMP2,TAB 
IF 1 apearhatasonnes 


EQ <<$$. TMP28*XF0>-*x10> 
TAB 


PUSHAL TAB 


16-SEP-1984 17:06:38.7 Page 3 


_ 
*e 
a 
= 

. 
" 
4 
2 
4 
y 
& 


#$$.TMP1,G*SYS$"PROC 


SRMSCALL 


Oo oO 
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; Srmscalltwo macro to setup arglist and call the desired routine 
«MACRO SRRSCALL TWO PROC, TAB,ERR,SUC,TAB2 
-GLOBL SYS$*PROC 
<TAB> 

L .. (AP) ,G*SYS$' PROC 

“NB <ERR>, $$. TMP=1 


; tab'= parameter missing; 


oeeees GM 


SNOW KNOW THAT TAB IS THERE! 


IF B <TAB2> ; must have both pointers 
- ERROR 3 missing parameter; 
«MEXIT 

-ENDC 


| 
| 
»NTYPE $$. TMP2,TAB2 
> Fe <<$$. TRESE“XFO>=*x50> 
TAB2 | 
| 

| 

| 


a IFF 

If EQ <<$$.TMP28*XF0>-*x10> 
Ai TAB2 

PUSHAL TAB2 

-ENDC 

~ENDC 

IF IDN <SUC> <0> 

PUSHL #0 . Renata 
~IFF 

IF NB <SUC> 

a ts SUC 

PUSHL #0 

~ENDC 

~ENDC | 
IF IDN <ERR> <0> 

PUSHL #0 

~ IFF 

IF NB <ERR> 

Pyane. ERR 

PUSHL #0 

~ENDC 

END 


C 
-NTYPE $$. TMP2,TAB 
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EQ <<$$. TMP28*KF0>-*x50> 
TAB 
EQ <<$$. TMP28“XF0>-*x10> 
TAB 


TAB 


#4 ,G*SYS$'PROC 
SRMSCALLTWO 
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